home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / net / FreedomC1.14.lha / Install < prev    next >
Text File  |  2000-11-05  |  4KB  |  159 lines
  1. ; Installer script Freedom Call v1.14  (05.11.2000 by Marcio Esper 'IcemaN')
  2. (set #bad-MUI (cat "You need at least MUI2.3 to use Freedom Call." ))
  3. (set #cpu1    (cat "Your Amiga is equipped with a "))
  4. (set #cpu2    (cat " CPU.\nWhich version of Freedom Call would you like to install ?"))
  5. (complete 0)
  6.  
  7. (message"\n\nFreedom Call v1.14\n\nby\n\nCristian Robert Gallas\n(SuRRouND)\n\n05.11.2000")
  8.  
  9. (message 
  10. "\n   _________    ______________  __________  "
  11. "\n  /\\  __    \\__/_____   _____/\\/    ___  /\\ "
  12. "\n  \\ \\__/    /\\ \\___ /  /\\____\\/\\____\\___/_/ "
  13. "\n   \\/_/    /_/__\__/  /_/____\\_/ ______ \\_\\ "
  14. "\n    \\_\\__________/ \\____ ____/ \\______/_/_/ "
  15. "\n  .----------[ Lithium Software ]----------."
  16. "\n  | Program  : Freedom Call                |"
  17. "\n  | Version  : V1.14                       |"
  18. "\n  | Author   : Cristian Robert Gallas      |"
  19. "\n  | Nickname : SuRRouND                    |"
  20. "\n  | Email    : surround@iname.com          |"
  21. "\n  | Date     : 05.11.2000                  |"
  22. "\n  `--------------------------------[ lI! ]-'"
  23. ;  (ALL)
  24. )
  25.  
  26. (complete 3)
  27.  
  28. (message "\n\n\nBug Reports : surround@iname.com\n\n*More information read Freedom.Guide*\n\nThis program is freeware with source free!!!\n\nContribute to Amiga Open Source!\nhttp://members.tripod.com/surround_br")
  29.  
  30. (set #DEST0
  31.   (askdir
  32.     (prompt "Where do you want to install Freedom Call? A drawer will be created there.")
  33.     (help (cat @askdir-help)
  34.     )
  35.     (default "Work:")
  36.   )
  37. )
  38.  
  39. (if (NOT(exists "LIBS:muimaster.library"))
  40.   (abort (cat #bad-MUI))
  41. )
  42. (complete 6)
  43. (set #DEST (tackon #DEST0 "FreedomCall"))
  44. (makedir #DEST (infos))
  45. (complete 10)
  46. (set cpu (+ (database "cpu")))
  47. (if (> cpu 68040)
  48.   (set turbo 1)
  49.   (set turbo 0)
  50. )
  51. (set turbo
  52.   (askchoice
  53.     (prompt (cat #cpu1 cpu #cpu2))
  54.     (choices "68000/10/20/30/40 version" "68060/fpu version")
  55.     (default turbo)
  56.     (help @askchoice-help)
  57.   )
  58. )
  59.  
  60. (complete 10)
  61.  
  62. (complete 16)
  63. (copyfiles (dest #DEST) (source "Freedom.Config"))
  64. (complete 25)
  65. (copyfiles (dest #DEST) (source "FreeEventMiami.txt"))
  66. (complete 37)
  67. (copyfiles
  68.   (prompt #copy)
  69.   (source (if turbo "FreeExplore.060" "FreeExplore.000"))
  70.   (newname "FreeExplore")
  71.   (help @copyfiles-help)
  72.   (infos)
  73.   (optional force)
  74.   (dest #DEST)
  75. )
  76. (complete 39)
  77. (copyfiles
  78.   (prompt #copy)
  79.   (source (if turbo "Freedom.060" "Freedom.000"))
  80.   (newname "Freedom")
  81.   (help @copyfiles-help)
  82.   (infos)
  83.   (optional force)
  84.   (dest #DEST)
  85. )
  86. (copyfiles
  87.   (prompt #copy)
  88.   (source (if turbo "FreeEventMiami.060" "FreeEventMiami.000"))
  89.   (newname "FreeEventMiami")
  90.   (help @copyfiles-help)
  91.   (infos)
  92.   (optional force)
  93.   (dest #DEST)
  94. )
  95.  
  96. (copyfiles (dest #DEST) (source "Freedom.info"))
  97. (copyfiles (dest #DEST) (source "FreeExplore.info"))
  98.  
  99. (complete 55)
  100. (makedir (tackon #DEST "FDataBase"))
  101. (makedir (tackon #DEST "HTML"))
  102. (complete 63)
  103. (makedir (tackon #DEST "Images"))
  104. (copyfiles (source "Images/") (dest (tackon #DEST "Images") (all) ))
  105. (complete 67)
  106. (makedir (tackon #DEST "Categories"))
  107. (copyfiles (source "Categories/") (dest (tackon #DEST "Categories") (all) ))
  108. (complete 76)
  109. (makedir (tackon #DEST "Docs"))
  110. (copyfiles (source "Docs/") (dest (tackon #DEST "Docs") (all) ))
  111. (copyfiles (dest #DEST) (source "Docs.info"))
  112. (set name
  113.   (askbool
  114.     (prompt "\n\nDo you want to install\n\nthe source code ?")
  115.     (help "\n Use this to install the program's source code.")
  116.   )
  117. )
  118. (complete 92)
  119. (if (= name 1)
  120.   (copyfiles (source "SourceCode/") (dest (tackon #DEST "SourceCode")) (all))
  121. )
  122. (complete 96)
  123. (startup "Freedom"
  124.   (prompt "Some commands will be added to your \"s:user-startup\" file.")
  125.   (help @startup-help)
  126.   (command "if exists \"" #DEST "\"\n")
  127.   (command "assign Freedom: \"" #DEST "\"\n")
  128.   (command "endif")
  129. )
  130.  
  131. (makeassign "Freedom" #DEST)
  132.  
  133. (if (askbool (prompt
  134.   "\n\nDo you like to read txt about how to \n"
  135.   "install FreeEventMiami?\n\n"
  136.   "This programs is used to realtime \n"
  137.   "integration with miami log file!\n\n"
  138.   "It's very recomemded to enabled all \n"
  139.   "features of Freedom.\n\n")
  140.   (help "Go, read it now....\n")
  141. )
  142. (if (> (run "MultiView FreeEventMiami.txt") 0)
  143.    (if (> (run "AmigaGuide FreeEventMiami.txt") 0)
  144.       (if (> (run "More FreeEventMiami.txt") 0)
  145.       (
  146.         (get_disk)
  147.         (run "FreedomCall:More FreeEventMiami.txt")
  148.       )
  149.       )
  150.    )
  151.    )
  152. )
  153.  
  154. (complete 100)
  155. (message "\n\nThat is :)\nInstaller script by IcemaN\nIcemaN@iceman.nu\n\n\nThank you for installing Freedom Call!\n")
  156. (exit (quiet)
  157. )
  158.  
  159.